home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 4 / QRZ Ham Radio Callsign Database - Volume 4.iso / files / tcpip / amiga / akit29m.lha / AmigaNOS / REXX / Net2Nos.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1993-08-07  |  1.1 KB  |  36 lines
  1. /* Convert HOSTS.NET to DOMAIN.TXT */
  2. /* Trace R */
  3.  
  4. Call Open(net,"TCPIP:Hosts.NET",Read)
  5. Call Open(nos,"TCPIP:Domain.TXT",Write)
  6.    
  7. call open(netwin,"raw:0/11/640/150/Hosts.NET")
  8. call open(noswin,"raw:100/100/440/150/Domain.TXT")
  9.  
  10. Call WriteLn(nos,'# HOSTS.NET converted to DOMAIN.TXT format for NOS version')
  11. Call WriteLn(nos,'# of KA9Q TCP/IP on '||DATE()||' by G1YYH')
  12. Call WriteLn(nos,'#')
  13.  
  14. Do Until EOF(net)
  15.   inline=readln(net)
  16.   IF LEFT(inline,1)='#' Then
  17.     Call WriteLn(nos,inline)
  18.   Else Do
  19.     Parse Var inline ipaddr ampr callsign '#' cmt
  20.     If ipaddr~='' Then Do
  21.       Call Writeln(netwin,inline)
  22.       Call Writeln(noswin,'# '||cmt)
  23.       Call Writeln(noswin,SPACE(callsign)||'. IN CNAME '||SPACE(ampr)||'.')
  24.       Call Writeln(noswin,SPACE(ampr)||'. IN A '||ipaddr)
  25.       Call Writeln(nos,'# '||cmt)
  26.       Call Writeln(nos,SPACE(callsign)||'. IN CNAME '||SPACE(ampr)||'.')
  27.       Call Writeln(nos,SPACE(ampr)||'. IN A '||ipaddr)
  28.       Call Writeln(noswin,space(callsign)||'. IN A '||ipaddr)
  29.       Call Writeln(nos,space(callsign)||'. IN A '||ipaddr)
  30.     End
  31.   End
  32. End
  33.  
  34. Call Close(net)
  35. Call Close(nos)
  36.